#-----------------------------------------------------------#
#  죄와벌++ 이율배반 										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 진료소 파츠 Version 1.1
#--- [주의 사항] --------------------------------------------#
# 1. 이 스크립트는 이하의 이용 규정에 따라 배포하고 있습니다. 	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
# 진료소
sub medical{

	if($tm==120){

		if($cmd<=0){
			$log .= "또 행차 주세요…<br>\n";
			$tm = $cmd = 0;
			&shop_menu;

		# 치료-1
		}elsif($cmd==1){

			$S = ($lv < 50) ? $lv*2000 : 100000;
			$log .= "…여기에서는 고의 비술에 의해 체력과 마력을<br>순간에 완쾌까지 회복해 드릴 수 있습니다<br>…다만 $S G 받습니다만…<br>\n";
			$tm=125;

			$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
			$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
			$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
			$log2 .=qq|<select name=cmd size=1>\n|;
			$log2 .=qq|<option value=0>그만두는</option>\n|;
			$log2 .=qq|<option value=1>치료</option>\n|;
			$log2 .=qq|</select><br>\n|;
			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

		# 성전환-1
		}elsif($cmd==2){

			$log.="여기에서는 성전환 수술을 받게 됩니다.<br>다만 입원과 수술비에 20만 G (정도)만큼 걸립니다만···<br>";
			$tm=135;
	
			$log2 .= qq|<form action="$script" method="$method" name="ore_">|;
			$log2 .= qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
			$log2 .= qq|<input type="hidden" name="id" value="$id">\n|;
			$log2 .= qq|<input type="hidden" name="pw" value="$pw">\n|;
			$log2 .= qq|<select name="cmd">\n|;
	
			$log2 .= qq|<option value="0">도망치는</option>\n|;
			$log2 .= ($sei==1) ?
				qq|<option value="3">녀가 되는</option>\n|:
				qq|<option value="3">남이 되는</option>\n|;
	
			$log2 .= qq|</select><br>\n|;
			$log2 .= qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
		}

	# 치료-2
	}elsif($tm==125){

		if($cmd<=0){
			$log .= "$nm 는 떠났다. <br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}else{
			$S = ($lv < 50) ? $lv*2000 : 100000;
			if($S < $gold){
				$hp = $max_hp;
				$mp = $max_mp;
				$gold -= $S;
				$log .= "$SG를 지불했다…<br>체력과 마력이 전회복했다. <br>\n";
				$tm = $cmd = 0;
				&shop_menu;
			}else{
				$log .= "돈이 부족해요…<br>\n";
				$tm=0;
				&shop_menu;
			}
		}

	# 성전환-2
	}elsif($tm==135){

		if($cmd<=0){
			$log .= "$nm 는 무슨 일도 없는 것처럼 떠났다. <br>\n";
			$tm = $cmd = 0;
			&shop_menu;
		}else{
			if($gold>=200000){
	
				$gold-=200000;
				$log.="오헤˚를 개시합니다. 눈을 뜨면(자) 거기는 별세계가 되어 있겠지요. <br>";
				$pr=$GMT*8;
	
				if($sei==1){
					$sei=2;
					$sei2="여성";
				}else{
					$sei=1;
					$sei2="남성";
				}
				$mes.= qq|마취으로 눈을 떴다. $nm 는 $sei2 가 되었다.|;
				$tm = $cmd = 0;
				$type='';
				&call_main_st;
			}else{
				$log2.="돈이 충분하지 않습니다. ";
				$tm = $cmd = 0;
				&shop_menu;
			}
		}
	}
}





1;
